home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 37 / IOPROG_37.ISO / SOFT / Multilizer.exe / disk1 / data1.cab / data1 / [Group9]VCL Source Standard / ivdlgreg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-12  |  1.3 KB  |  64 lines
  1. {
  2.   This unit registers the common dialog components of Multilizer.
  3.  
  4.   Copyrights 1995-1998 Innoview Data Technologies Oy
  5. }
  6.  
  7. unit IvDlgReg;
  8.  
  9. {$I IVMULTI.INC}
  10.  
  11. interface
  12.  
  13. procedure Register;
  14.  
  15. implementation
  16.  
  17. uses
  18. {$IFDEF WIN32}
  19.   Windows,
  20. {$ELSE}
  21.   WinTypes, WinProcs,
  22. {$ENDIF}
  23.   IvDialog, IvMLDlgs, IvFiltEd, IvMulReg,
  24.   Classes, Forms, DsgnIntf, Controls, Dialogs, SysUtils, TypInfo;
  25.  
  26. {$IFDEF WIN32}
  27. {$R IvDlgR32.DCR}
  28. {$ENDIF}
  29.  
  30. const
  31.   SHEET_C = 'ML Old';
  32.  
  33. procedure Register;
  34. begin
  35.   { Multilingual common dialog components }
  36.  
  37.   RegisterComponents(SHEET_C, [TIvOpenDialog]);
  38.   RegisterComponents(SHEET_C, [TIvSaveDialog]);
  39.   {$IFDEF IVWIDE}
  40.   RegisterComponents(SHEET_C, [TIvOpenPictureDialog]);
  41.   RegisterComponents(SHEET_C, [TIvSavePictureDialog]);
  42.   {$ENDIF}
  43.   RegisterComponents(SHEET_C, [TIvFontDialog]);
  44.   RegisterComponents(SHEET_C, [TIvColorDialog]);
  45.   RegisterComponents(SHEET_C, [TIvPrintDialog]);
  46.   RegisterComponents(SHEET_C, [TIvPrinterSetupDialog]);
  47.   RegisterComponents(SHEET_C, [TIvFindDialog]);
  48.   RegisterComponents(SHEET_C, [TIvReplaceDialog]);
  49.  
  50.   RegisterPropertyEditor(
  51.     TypeInfo(String),
  52.     TIvCommonDialog,
  53.     'DictionaryName',
  54.     TIvDictionaryNameProperty);
  55.  
  56.   RegisterPropertyEditor(
  57.     TypeInfo(String),
  58.     TIvOpenDialog,
  59.     'Filter',
  60.     TIvFilterProperty);
  61. end;
  62.  
  63. end.
  64.